﻿Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        RibbonColorChooser1.Color = Color.Black
        RibbonColorChooser2.Color = Color.Transparent

    End Sub

    Private Sub RibbonButton16_Click(sender As Object, e As EventArgs) Handles RibbonButton16.Click


    End Sub

    Private Sub RibbonPanel2_ButtonMoreClick(sender As Object, e As EventArgs) Handles RibbonPanel2.ButtonMoreClick

        Dim FontDialog As New FontDialog

        FontDialog.ShowDialog()

    End Sub
End Class
